	CHARACTER*20 TITLE
	CHARACTER*132 A
	OPEN(UNIT=3,CARRIAGECONTROL='LIST',STATUS='UNKNOWN')
100	READ(1,1,END=200)TITLE
1	FORMAT(A)
2	FORMAT(1H )
	I=0
101	READ(2,1,END=201)A
	IF(A(8:27).EQ.TITLE)THEN
		WRITE(3,1)A
		I=I+1	
		IF(I.EQ.2)THEN
			WRITE(3,2)
			I=0
			ENDIF
		ENDIF
	GO TO 101
201	REWIND 2
	GO TO 100
200	STOP
	END
